home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_26_(10-1984).d64 / disk purge (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  58 lines
  1. 30 REM FOR 4040/2031/1540/1541
  2. 40 PRINT "[147]DISK PURGE"
  3. 50 PRINT:PRINT"WHICH DRIVE (0/1) ? [146][157]";
  4. 60 GET DR$:IF DR$<>"0" AND DR$<>"1" THEN 60
  5. 70 PRINT DR$:D=VAL(DR$)
  6. 80 DR$= "I"+DR$:OPEN 15,8,15,DR$
  7. 90 GOSUB 450
  8. 100 OPEN 1,8,3,"#":GOSUB 460
  9. 110 PRINT:PRINT "PRESS'Y[146]'TO DEL FILE":PRINT
  10. 120 Z$=CHR$(0)
  11. 130 T=18:S=1
  12. 140 PRINT#15,"U1:"3;D;T;S
  13. 150 PRINT#15,"B-P:"3;2+32*R
  14. 160 GET#1,A$:IF A$="" THEN A$=Z$
  15. 170 IF ASC(A$)<129 THEN 270
  16. 180 FOR K=5+32*R TO 20+32*R
  17. 190 PRINT#15,"B-P:"3;K
  18. 200 GET#1,A$:IF A$="" THEN PRINT" [146]";:GOTO 220
  19. 210 PRINT A$;
  20. 220 NEXT
  21. 230 PRINT ,,"PURGE ?  [146][157]";
  22. 240 GETA$:IFA$<>"Y" AND A$<>"N" THEN240
  23. 250 PRINT A$
  24. 260 IF A$="Y" THEN GOSUB 360
  25. 270 R=R+1:IF R<8 THEN 140
  26. 280 PRINT#15,"B-P:"3;0
  27. 290 GET#1,A$:IFA$="" THENA$=Z$
  28. 300 T=ASC(A$):IF T=0 THEN PRINT:PRINT "END OF DIRECTORY.":GOTO 400
  29. 310 PRINT#15,"B-P:"3;1
  30. 320 GET#1,A$:IFA$=""THENA$=Z$
  31. 330 S=ASC(A$):PRINT:PRINT "*** NEXT TRACK: ";:NU=T:GOSUB520:PRINT N$;
  32. 340 PRINT TAB(20);"NEXT SECTOR: ";:NU=S:GOSUB 520:PRINT N$;" ***":PRINT
  33. 350 R=0:GOTO140
  34. 360 PRINT#15,"B-P:"3;5+32*R-3
  35. 370 PRINT#1,CHR$(0);
  36. 380 PRINT#15,"U2:"3;D;T;S
  37. 390 GOSUB460:RETURN
  38. 400 CLOSE 1
  39. 405 PRINT "VALIDATE DISK Y OR N"
  40. 406 GET V$:IF V$="Y"THEN410
  41. 407 IF V$=""THEN 406
  42. 408 CLOSE15:END
  43. 410 PRINT:PRINT "VALIDATING DISK[146]"
  44. 420 PRINT#15,("V"+DR$)
  45. 430 GOSUB460:CLOSE 15
  46. 440 END
  47. 450 REM CHECK DISK STATUS
  48. 460 INPUT#15,ER,ER$,TR,SE
  49. 470 IF ER=0 THEN RETURN
  50. 480 CLOSE 15:CLOSE 1
  51. 490 PRINT:PRINT "DISK ERROR! ";
  52. 500 PRINT ER;ER$;TR;SE
  53. 510 STOP
  54. 520 REM FORMAT (null)S
  55. 530 N$=MID$(STR$(NU),2)
  56. 540 IF LEN(N$)<2 THEN N$="0"+N$
  57. 550 RETURN
  58.